home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: Games / PC-SIG Games (PC-SIG).iso / 2673 / KOMPASSI.EGL < prev    next >
Encoding:
Text File  |  1990-02-26  |  4.8 KB  |  162 lines
  1. rem      Tim Cooper's  Lady Mechano Construction Kit
  2. rem      for Kompassi, 23/02/90.   Any attempt to copy
  3. rem      this program will result in your hard disk being
  4. rem      wiped, but legal copies can be bought from Tim
  5. rem      Cooper for Fmk 120.- from the address:
  6.  
  7. rem      31 Epping Ave
  8. rem      EASTWOOD - 2122
  9. rem          AUSTRALIA
  10.  
  11. replace "B","T"
  12. BOXES = TRACK
  13. TRACK = CHUTE,WALL
  14. REPLACE '*','a','z','δ'
  15. replace 'º','i'
  16. replace '@',12
  17. man = 3
  18.  
  19.      @           X"Käytä nuoli-näppäimiä  ja
  20. B               BX"yritä päästä pakoon
  21.     X        B## X"tarkistajista. Voit
  22.    $X   XXXX     X"työntää '"#"' palikkoita.
  23.    $#   #     XXXX"(Sinä olet 'z' ylhällä).
  24.   XXX  ## $ #    XXXXXXXXXXXXXXXXXXXXXXXXXXX
  25.     X  X    #    X%%%%%%%%%%%%%%%%%Kamppº%%%
  26.  B   B X    XXX  X%%%%%%%%%%%%%%%%%%%%%%+%%%
  27.   ###    $  B    X%Hakaniemº+++%%%%%%%%%+%%%
  28.   $              X%%%%%%%%%%%%+++++++++++%%%
  29. XXXXXXXX+X+X+X+XXXSörnäºnen%%%+%%%%+%%%%%%%%
  30. Metro-%%+++++++%%%%%%%%+%%%%%%+Raut*tientori
  31.  Asema%%%%%+%%%%%%%%%%%++++++++XXXXXXXXXXXXX
  32. %%%%%%%%%%%+++++++++++++%"Kerää dollareita!
  33. "Paina <PAUSE> jos haluat katsella rauhassa.
  34.  
  35.  
  36. REPLACE 'E',1
  37. star = 'P',15
  38. REPLACE '*',1
  39. REPLACE 'º','m'
  40. IF FINISH PUT 6,13 '_###`###_###`# "Sait sen!"'; BELL
  41. IF START PUT UNDER '`'
  42. IF@ '*' PUT UNDER '.'
  43. "Olet just tullut Rautatientorille" %Kaºppi
  44. "kun näet juopon jolla on pullo"    %%%+%%%
  45. "Mustaherukkaviiniä. Olet hulluna"  %%%+%%%
  46. "siihen! Mene ottamaan! Näetkö kuka"%%%+%%%
  47. "se on?"    E            E          %%%+%%%
  48.           E                     %%%+%%%
  49.     E                 E        +++++%%%
  50.       E        E                %%%+%%%
  51.                   E     %%%+%%%
  52.     #+###`###+###`#      E          %%%+%%%
  53.   E #+###`###+###`#                 %%%+%%%
  54.     #+###`###+###`#          *      %%%@%%%
  55.     #+###`###+###`#                 %Hakani
  56.  
  57. CLEAR IF
  58. star = 'z'
  59. replace '*',0
  60. iF START PUT UNDER '║'
  61. REPLACE 'AJB',2
  62. REPLACE 'z│y+'
  63. TRACK = CHUTE,CHUTE
  64. Boxes=track
  65.    C#@###`###║###`#      +          "
  66. ++  z  z   z   z  z      +    X
  67. B+  z  z   z   z  z      +  ++XA
  68.  +     y   y   y            +kX
  69.                 +oX
  70.  +            E             +mX
  71. ++    XX   %%%%%   XX       *pXB
  72.       XX           XX       +aX
  73.          %              +sX
  74.     +        %        +     +sX
  75.     +        %        +     +iX
  76.     +   E      E      + B   ++XA
  77.    C+     A           + B C + X
  78. XXXX+XXXXXXXXXXXXXXXXX+XXXXXXXX
  79.        A
  80. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  81. "Täytyy päästää nyt Kompassiin    "
  82. "törmäämättä Jehovan Todisteihin 'J'
  83. "tai puukko-kaantaviin penttuihin 'C'
  84. "tai Tarkistajiin tai juoppoihin.  "
  85.  
  86. BOXES=TRACK
  87. TRACK = WALL,WALL
  88. CLEAR IF
  89. CLEAR REPLACE
  90. REPLACE 'z : w.C',2
  91. REPLACE 'x░'
  92. IF@ '=' BELL
  93. "Mene ekaksi laittamaan takkisi,"
  94. "sitten juo kuppi kahvia, lue se
  95. "uusi Aku Ankka, soita virastoon
  96. +++++++++++++++++++++ja istu alas
  97. +=                %%+pelamaan
  98. +%    %      %%%4%%%+tietokoneen
  99. +%    3           %%+kanssaw
  100. +%%%%%%%%         5%+
  101. +++++++++++-+++++++++Mutta älä
  102. +TARU      :      S +ihmeessä mee
  103. +                 E +pentujen
  104. +                 I +vessaaw
  105. +        RAILA    J +
  106. +                 A +Työntekijillä
  107. +                   +on paljon
  108. +++-++++++++:++++++++työtä--jää
  109. @     +   C     C C +pois tieltäw
  110. +     + C  C C + C  +
  111. +++-+++++++++++++++++
  112. +1       %%%+ oo +=z+
  113. +   %%%    2+    + z+Hint--mene
  114. +%%      %%        z+vessaanw
  115. +++++++++++++++++++++
  116.  
  117. REPLACE 'º>>>'
  118. IF FINISH PUT 37,6 '>'
  119. REPLACE "z!w.b%c,:─x",0
  120. "----------------PAY-DAY!----------------------"
  121. @         /               Australialaiset#######
  122.      // /                    :::º
  123.      ////             XXXXXXXXXXXXXXXXXXXXXX
  124.        ///////     /      Muut##################
  125.       / /// ///   ///            :::º
  126.      ######    ##     XXXXXXXXXXXXXXXXXXXXXX
  127.               XVERO-VIRASTO:########
  128.           //          X#####################
  129.           ##          XÄlä kerro niille että
  130.               Xolet Australialainenc
  131.               Xmuuten he ottavat"35%
  132. XXXXXXXXXXXXXXX           Xtimantteistäsi poisw
  133. Kerää timantitwXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  134. Varo ettei ne putoaa päähänzXXXXXXXXXXXXXXXXXXXX
  135.  
  136. REPLACE 'AT>║<═'
  137. char '─'=,solid
  138. power = 100
  139. track = chute,chute
  140. if finish
  141. if start put 34,4 ">"; put 46,4 ">"; put 47,8 "<"; put 29,9 ">";
  142.   put 38,10 ">"; dots + 0
  143. man = ,8
  144. "Nyt sinulla on varaa ostamaan kerta-lippu metroon!
  145. ###################################################
  146. R-Kioski│   A            %%%%%Kamppi%%%%%%Hertoniem
  147. ───+────┘                %%%%%%%%+%%%%%%%%%%%+%%%%%
  148.           A       ++++++++++++%%%%%%%%%%A+%%%%%
  149.      A               %%%%%%%%+%%%%%%%%%%%+++%%%
  150.   A                      %%%%%%%%+A%%%%%%%%%%%%+%%%
  151.            A         %Hakanw%+%%%%%%%%Kulo++%%%
  152.            @     %%%+%A%%+%%Sörnw%%%%%%+%%%
  153.              %%%++++++%%%+%%%%%%%%%+A%%
  154.              %%%%%%%%+++++++++++++++%%%
  155.  
  156. PASSWORD ="IHANA"
  157. Timer=5
  158. IF TIMER WIN
  159. Voitit!@.
  160.  
  161.  
  162.